home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / FL-ENT1.ZIP / ENTER.PPS < prev    next >
Text File  |  1996-08-07  |  2KB  |  85 lines
  1. ;----------------------------------------------------------------------------
  2. ;
  3. ;          XPRESS Enter Prompt by Flax  --  Feel free to modify :).
  4. ;
  5. ;----------------------------------------------------------------------------
  6.  
  7.  ; Procedure Declarations
  8.  
  9.  Declare Procedure Main      ()
  10.  Declare Procedure SlowDelay (BYTE b)
  11.  Declare Procedure Finalise  ()
  12.  
  13. ;----------------------------------------------------------------------------
  14.  
  15.  ; Variable Declarations
  16.  
  17.  BYTE b
  18.  
  19. ;----------------------------------------------------------------------------
  20.  
  21.  Main()
  22.  
  23. ;-----------------------------------------------------------------[Main]-----
  24. Procedure Main ()
  25.  
  26.  While (1) do  ; Endless Loop
  27.  
  28.    Print "@X03-@X08 "                      : SlowDelay(1) : Backup 2
  29.    Print "@X0B-@X03 @X08e"                 : SlowDelay(1) : Backup 3
  30.    Print "@X03-@X0B @X03e@X08n"            : SlowDelay(1) : Backup 4
  31.    Print "@X08-@X03 @X0Be@X03n@X08t"       : SlowDelay(1) : Backup 5
  32.    Print "@X00 @X08 @X03e@X0Bn@X03t@X08e"  : SlowDelay(1) : Backup 5
  33.    Print "@X00 @X08e@X03n@X0Bt@X03e@X08r"  : SlowDelay(1) : Backup 5
  34.    Print "@X00 @X08n@X03t@X0Be@X03r@X08 "  : SlowDelay(1) : Backup 5
  35.    Print "@X00 @X08t@X03e@X0Br@X03 @X08-"  : SlowDelay(1) : Backup 5
  36.    Print "@X00 @X08e@X03r@X0B @X03-"       : SlowDelay(1) : Backup 4
  37.    Print "@X00 @X08r@X03 @X0B-"            : SlowDelay(1) : Backup 3
  38.    Print "@X00 @X08 @X03-"                 : SlowDelay(1) : Backup 2
  39.    Print "@X00 @X08-"                      : SlowDelay(1) : Backup 1
  40.    Print "@X00 "                           : SlowDelay(1)
  41.  
  42.    ; Delay 7 clock ticks before displaying the Enter prompt again
  43.    SlowDelay(7)
  44.  
  45.    ; Go back to start of the line
  46.    Backup 9
  47.  
  48.  EndWhile
  49.  
  50. EndProc
  51.  
  52.  
  53. ;-----------------------------------------------------------[Slow Delay]-----
  54. Procedure SlowDelay (BYTE b)
  55.  
  56.  ; This is the only way I know of hiding the cursor in PPL.
  57.  COLOR 0
  58.  Print "▄" + Chr(8)
  59.  
  60.  ; If the Enter key was pressed, exit.
  61.  If ( INKEY() = Chr(13) ) Finalise()
  62.  
  63.  ; Delay "b" clock ticks
  64.  DELAY b
  65.  
  66.  ; If the Enter key was pressed during the delay, exit.
  67.  IF ( INKEY() = Chr(13) ) Finalise()
  68.  
  69. EndProc
  70.  
  71.  
  72. ;-------------------------------------------------------------[Finalise]-----
  73. Procedure Finalise ()
  74.  
  75.  ; Clear the prompt
  76.  Backup 9
  77.  ClrEol
  78.  
  79.  ; Stuff the keyboard with the Enter key.
  80.  KBDSTUFF Chr(13)
  81.  
  82.  END
  83.  
  84. EndProc
  85.